function klonari(form)
{
  var xt= form.d1.value;
  var yt= form.d2.value;
  var xp= form.d3.value;
  var yp= form.d4.value;
  var a= form.d5.value;
  var b= form.d6.value;
  var th= form.d7.value;
  var sab= form.d8.value;

if ( xp=="" || yp=="" || xt=="" || yt=="" || a=="" || b=="" || th=="" || sab=="" ) 

{
  alert ('ΔΩΣΤΕ ΤΙΜΕΣ ΣΕ ΟΛΑ ΤΑ ΠΛΑΙΣΙΑ');
  return;
}

 pr1=b*0.0157079632679489661923132169164;
 pr2=Math.sin(pr1);
 pr3=parseFloat(a)+parseFloat(b);
 pr4=pr3*0.0157079632679489661923132169164;
 pr5=Math.sin(pr4);
 sat=(sab*pr2)/pr5;
 pr6=a*0.0157079632679489661923132169164;
 pr7=Math.sin(pr6);
 sbt=(sab*pr7)/pr5;
 flik=parseFloat(xp)-parseFloat(xt);
 flok=parseFloat(yp)-parseFloat(yt);
if ( flik==0 && flok==0 ) 
{
  alert ('ΝΑ ΓΙΝΕΙ ΕΛΕΓΧΟΣ ΣΥΝΤΕΤΑΓΜΕΝΩΝ.ΑΔΥΝΑΤΗ Η ΕΚΤΕΛΕΣΗ ΤΟΥ ΠΡΟΓΡΑΜΜΑΤΟΣ');
  return;
}
 pr8=Math.pow(flik,2);
 pr9=Math.pow(flok,2);
 pr10=parseFloat(pr8)+parseFloat(pr9);
 stp=Math.sqrt(pr10);
 pr11=th*0.0157079632679489661923132169164;
 pr12=Math.sin(pr11);
 pr13=(sbt*pr12)/stp;
 pr14=Math.sin(pr13)*(63.661977236758134307553505349006);
 pr15=parseFloat(pr14)+parseFloat(th);
 f=200-pr15;
 k=200-pr3;
 pr16=flik/flok;
 pr17=Math.atan(pr16)*(63.661977236758134307553505349006);
 pr18=Math.abs(pr17);

 if (flik>0 && flok>0)
{
  atp=pr18;
}
 else if (flik>0 && flok==0)
{
  atp=100;
}
 else if (flik>0 && flok<0)
{
  atp=200-pr18;
}
 else if (flik<0 && flok>0)
{
  atp=400-pr18;
}
 else if (flik<0 && flok==0)
{
  atp=300;
}
 else if (flik<0 && flok<0)
{
  atp=200+pr18;
}
 else if (flik==0 && flok>0)
{
  atp=0;
}
 else if (flik==0 && flok<0)
{
  atp=200;
}

 kr1=parseFloat(atp)+parseFloat(f);
 kr2=kr1+k;
 pr19=kr2*0.0157079632679489661923132169164;
 pr20=Math.sin(pr19);
 pr21=Math.cos(pr19);
 pr22=kr1*0.0157079632679489661923132169164;
 pr23=Math.sin(pr22);
 pr24=Math.cos(pr22);
 pr25=sat*pr20;
 pr26=sat*pr21;
 pr27=sbt*pr23;
 pr28=sbt*pr24;
 xa=parseFloat(xt)+parseFloat(pr25);
 ya=parseFloat(yt)+parseFloat(pr26);
 xb=parseFloat(xt)+parseFloat(pr27);
 yb=parseFloat(yt)+parseFloat(pr28);

if (isNaN(xa))

{
  alert ('ΑΔΥΝΑΤΗ Η ΕΚΤΕΛΕΣΗ ΤΟΥ ΠΡΟΓΡΑΜΜΑΤΟΣ.ΚΑΠΟΙΟ ΠΛΑΙΣΙΟ ΕΧΕΙ ΣΥΜΒΟΛΟ(ΓΡΑΜΜΑ)');
  return;
}

greek.r1.value=xa.toFixed(3);
greek.r2.value=ya.toFixed(3);
greek.r3.value=xb.toFixed(3);
greek.r4.value=yb.toFixed(3);

}